home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 013a / mexlas.zip / TXLABELS.PRG < prev    next >
Text File  |  1991-09-01  |  1KB  |  50 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXLABELS.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit(_print_port)
  12. txreset()
  13. txpagesize("letter")
  14. txorient("P")
  15. txsetlpi(6)
  16.  
  17. _company   = "Texas Associated Software"
  18. _address1  = "523 La Cresta Drive"
  19. _address2  = "Red Oak, TX  75154"
  20. _phone     = "(214) 617-5260"
  21.  
  22. _customer  = "Customer Name"
  23. _caddress1 = "Customer Address"
  24. _caddress2 = "Customer City/State"
  25.  
  26. for i = 1 to 60 step 10
  27.    txcolbox( i, 01, 39, 10, 1)
  28.    txcolbox( i, 41, 39, 10, 1)
  29. Next
  30.  
  31. for i = 1 to 60 step 10
  32.    txcolprint( i    , 01, .t., _company)
  33.    txcolprint( i    , 41, .t., _company)
  34.    txcolprint( i + 1, 01, .f., _address1)
  35.    txcolprint( i + 1, 41, .f., _address1)
  36.    txcolprint( i + 2, 01, .f., _address2)
  37.    txcolprint( i + 2, 41, .f., _address2)
  38.  
  39.    txcolprint( i + 6, 15, .t., _customer)
  40.    txcolprint( i + 6, 55, .t., _customer)
  41.    txcolprint( i + 7, 15, .f., _caddress1)
  42.    txcolprint( i + 7, 55, .f., _caddress1)
  43.    txcolprint( i + 8, 15, .f., _caddress2)
  44.    txcolprint( i + 8, 55, .f., _caddress2)
  45. Next
  46.  
  47. txclear()
  48.  
  49. *: EOF: TXLABELS.PRG
  50.